--[[
    编码: WMS-15-06
    名称: 收货单-主从面板-选ASN后
    作者：HAN  
    日期：2025-1-29

    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： AeforeSelectASN

    功能:
        1）选中一个ASN后，把ASN中还可以收货的物料加入收货单明细
    更改记录：
  
--]]

json  = require ("json")
mobox = require ("OILua_JavelinExt")
m3 = require("oi_base_mobox")

-- 获取采购订单明细，返回插入ROW数据
function GetASNDetail( strLuaDEID, strAsnNo )
    local strCondition, nRet, strRetInfo
    local strOrder = 'N_ROW_NO'

    strCondition = "F_QTY > F_ACC_R_QTY + F_ACC_C_QTY AND S_ASN_NO = '"..strAsnNo.."'"
    nRet, strRetInfo = mobox.queryDataObjAttr( strLuaDEID, "ASN_Detail", strCondition, strOrder, "F_QTY", "F_ACC_R_QTY","F_ACC_C_QTY",
                                               "S_ITEM_CODE", "S_ITEM_NAME","S_ITEM_SPEC","S_UOM" )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "获取【预收货单明细】失败! "..strRetInfo ) end

    local retObjs = json.decode( strRetInfo )
    local nObjs =  #retObjs    
    local n, nCol, nMaxCol
    local attrs
    local strInsertRow = ''
    local qty, acc_r_qty, acc_c_qty

    -- 获取 ASN_Detial 中的属性，设置到 Receipt_Detail
    nMaxCol = #retObjs[1].attrs
    for n = 1, nObjs do
        attrs = retObjs[n].attrs
        -- 判断一下数量
        qty = lua.StrToNumber( attrs[1].value )
        acc_r_qty = lua.StrToNumber( attrs[2].value )
        acc_c_qty = lua.StrToNumber( attrs[3].value )

        --组织插入的 Receipt_Detail 数据
        local receipt_detail_attrs = {}
        local nIndex = 1
        for nCol = 4, nMaxCol do
            receipt_detail_attrs[nIndex] = attrs[nCol]
            nIndex = nIndex+1
        end
        -- 数量是 最大可收货数量
        receipt_detail_attrs[nIndex] = lua.KeyValueObj( "F_QTY", qty-acc_r_qty-acc_c_qty )
        strInsertRow = strInsertRow..'{"attrs":'..lua.table2str(receipt_detail_attrs)..'},'
    end
    if ( strInsertRow ~= '') then 
        return '['..lua.trim_laster_char(strInsertRow)..']'
    end
    return ''
end

function AeforeSelectASN ( strLuaDEID )
    local nRet, strRetInfo
    local strDataJson

    -- step1：获取选择面板中选中的数据
    nRet, strDataJson = mobox.getCurEditDataPacket( strLuaDEID )
    if ( nRet ~=0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "无法获取Lua数据包!") end
    if ( strDataJson == '' ) then return end

    -- step2: 解析输入的Json格式文本, 选中的数据对象
    local obj, success
    success, obj = pcall( json.decode, strDataJson)
    if ( success == false ) then lua.Error( strLuaDEID, debug.getinfo(1), "非法的JSON格式!"..obj ) end 

    -- 因为是单选 格式：{"id":"","attr1":"",...}
    -- 获取返回的数据对象属性
    local strAsnNo = ''         -- ASN编码
    local strSpplierNo = ''     -- 供应商编码
    local strSpplierName = ''   -- 供应商名称
    local strInsertRow = ''

    strAsnNo = obj.S_NO
    strSpplierNo = obj.S_SUPPLIER_NO
    strSpplierName = obj.S_SUPPLIER_NAME
    if (strAsnNo == '' or strAsnNo == nil ) then return end
    if (strSpplierNo == nil ) then strSpplierNo = '' end
    if (strSpplierName == nil ) then strSpplierName = '' end

    -- 获取ASN中还可以收货的货品清单
    strInsertRow = GetASNDetail( strLuaDEID, strAsnNo )

    -- 设置主从窗口中 主表中的属性
    local setAttr = '[{"attr":"S_ASN_NO","value":"'..strAsnNo..'"},{"attr":"S_SUPPLIER_NO","value":"'..strSpplierNo..'"},'
    setAttr = setAttr..'{"attr":"S_SUPPLIER_NAME","value":"'..strSpplierName..'"}]'

    local strAction = '[{"action_type":"set_dlg_attr","value":'..setAttr..'}'
    if ( strInsertRow ~= '' ) then 
        strAction = strAction..',{"action_type":"clear_rows","value":""},{"action_type":"insert_bottom_row","value":'..strInsertRow..'}'
    end
    strAction = strAction..']'
    nRet, strRetInfo = mobox.setAction( strLuaDEID, strAction  )
    if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), "setAction失败! "..strRetInfo..' action = '..strAction ) end 
end